home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / xwindows / demos / xfract_1.z / xfract_1 / xfractint-1.06 / fracsuba.c < prev    next >
C/C++ Source or Header  |  1992-09-28  |  597b  |  25 lines
  1. #include "fractint.h"
  2.  
  3. extern long ltempsqrx,ltempsqry;
  4. extern long lmagnitud, llimit, llimit2, lclosenuff, l16triglim;
  5. extern int overflow, bitshift;
  6. extern struct lcomplex lold, lnew;
  7.  
  8. longbailout()
  9. {
  10.     ltempsqrx = lsqr(lnew.x); ltempsqry = lsqr(lnew.y);
  11.     lmagnitud = ltempsqrx + ltempsqry;
  12.     if (lmagnitud >= llimit || lmagnitud < 0 || labs(lnew.x) > llimit2
  13.     || labs(lnew.y) > llimit2 || overflow)
  14.         { overflow=0;
  15.         return(1); }
  16.     lold = lnew;
  17.     return(0);
  18. }
  19.  
  20. FManOWarfpFractal() {}
  21. FJuliafpFractal() {}
  22. FBarnsley1FPFractal() {}
  23. FBarnsley2FPFractal() {}
  24. FLambdaFPFractal() {}
  25.